home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / MacGzip 1.0 / source / More Resources / NotPPC ƒ / NotPPC.c < prev    next >
Text File  |  1995-09-06  |  2KB  |  70 lines
  1. /*
  2.  
  3.     NotPPC.c
  4.  
  5.         Source code for NotPPC application.
  6.  
  7. */
  8.  
  9. #include <QuickDraw.h>
  10. #include <Dialogs.h>
  11. #include <Windows.h>
  12. #include <Resources.h>
  13. #include <Memory.h>
  14. #include "NotPPC.h"
  15. #include <Menus.h>
  16. #include <Fonts.h>
  17. #include <GestaltEqu.h>
  18. #include <ToolUtils.h>
  19.  
  20. /* Not defined in {CIncludes} */
  21.     
  22. #define gestaltSysArchitecture 'sysa'
  23. #define gestalt68k 1
  24.  
  25.  
  26. void main ()
  27. {
  28.     long        Architecture;
  29.     OSErr       err;
  30.     short        itemHit;
  31.     AlertTHndl    theAlertTemplate;
  32.     Handle        theDITLHandle;
  33.     Str255        theMessage;
  34.  
  35.     InitGraf ((Ptr) &qd.thePort);
  36.     InitFonts ();
  37.     InitWindows ();
  38.     InitMenus ();
  39.     TEInit ();
  40.     InitDialogs (0L);
  41.     InitCursor ();
  42.     
  43.     /* set cursor to an arrow */
  44.     SetCursor (&qd.arrow);
  45.  
  46.     /* pre-flight everything first */
  47.     theAlertTemplate = (AlertTHndl)GetResource ('ALRT', RESOURCE_ID);        /* is the ALRT resource around? */
  48.     if (theAlertTemplate)
  49.          theDITLHandle = GetResource ('DITL', (*theAlertTemplate)->itemsID);    /* How about the DITL? */
  50.        
  51.     err = Gestalt (gestaltSysArchitecture, & Architecture);                 /* Which message to print? */
  52.     if (err || (Architecture == gestalt68k) )
  53.         GetIndString (theMessage, RESOURCE_ID, Mac68KmsgID);
  54.      else
  55.        GetIndString (theMessage, RESOURCE_ID, PowerMacMsgID);
  56.  
  57.     if ((theAlertTemplate) && (theDITLHandle) && (theMessage[0] != 0))
  58.     {
  59.         /* Success at last... */
  60.     
  61.         ParamText (theMessage, (ConstStr255Param) "\p",                 /* Use the loaded STR resource to replace */
  62.                    (ConstStr255Param) "\p", (ConstStr255Param) "\p");    /*    ^0 in alert's DITL. */    
  63.         itemHit = Alert (RESOURCE_ID, nil);                                /* Run the alert. */
  64.     }
  65.     else
  66.     {
  67.         /* give some indication we're hosed... */
  68.         SysBeep(2); 
  69.     }
  70. }